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(57)Abstract: 

PROBLEM TO BE SOLVED: To easily change the 

contents of the procedure of a processing or the like 

and to process information without the need of 

programming. 

1 SOLUTION: This information processor is provided 
i 

! with an input class 13 for performing the input 

processing of data by prescribed conditions in the case 
i of receiving a start message from a batch control class 
I 1 1 and outputting an end message to the batch control 
class 11, a conversion class 15 for converting the data 
whose input processing is performed by the prescribed 
conditions in the case of receiving the start message 
from the batch control class 1 1 and outputting the end 
message to the batch control class 11 and an output 
class 17 for performing an output processing for the conversion processed data by the prescribed 
conditions in the case of receiving the start message from the batch control class 11 and outputting 




BEST AVAILABLE COPY 



the end message to the batch control class 11. The classes are controlled by the batch control class 
11. 
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DATA DIVISION 
FD SEJSEJO-F. 
01 l-SEI-REC. 

C2 l-NO-KAME PIC XC2SX 

02 l-TBL 

03 t-KAMOKU PIC 9(3) OCCURS S. 
SO SORT-FEE. 
01 SORT-REC. 

02 S -NO- NAME. 

03 S-GAKU-NO 
03 S-NAM8 

02 S-GOUKEl 

02 S-TOKUTEN. 
FD JUNI-FH-E. 
01 O-JLN-REC. 

02 O-JUNL PIC XT33. 

02 O-NO-NAME. PIC Jtf2S). 

02 O-GOUKEL PIC 9(3). 

WOR^NG^mSFsECTION. ^ ^ 

01 L PIC 9 VALUE ZERO. 

01 EOF. PC 9. 

01 W-JUN11. PIC 9(3). 

01 W-JUNB. PtC 9(3). 

01 W-GOUKEL PIC 9(3). 

PROCEDURE DV1SION. 

MAM. 

SORT SORT— F1_E 
DESCENDING KEY S-COUKEJ 
ASCENDING KEY S-GAKU-NO. 

INPUT PROCEDURE IN-SHORl 
OUTPUT PROCEDURE OUT-SKORL 
>P RUN. 

ku 

OPEN INPUT SElSEW-F. 
INTTIAUZE EOF. 
PERFORM UNTIL EOF - T 
READ SEtSCKl-F 
AT END 

MOVE 1 TO EOF. 
NOT AT END 

MOVE HNO-NAME TO S-NO-NAME 

MOVE l-TBL TO S-TOKUTEN 

PERFORM VARYING I FROM 1 BY 1 UNTIL I > 5 

COMPUTE S-GOUKD * HKAMOKLK0 + S-GOUKFJ 
END-PERFORM 
END-READ 
RELEASE SORT-REC 
END-PERFORM. 
CLOSE SEISEKI-F 
OUT-SHORI. 

OPEN OUTPUT J UN I -FILE. 
(NfTWJZE EOF W-JUN71 W-JUNI2. 
MOVE HIGH-VALUE TO W-GOUKH. 
PERFORM UNTIL EOF = 1 
RETURN SORT-FJLE 
AT END 

MOVE I TO EOF 
NOT AT END ~ 
COMPUTE W-JUNI1 = W-JUNI1 +1 
IF W-GCUKEI NOT = S-GOUKE) 

COMPUTE W-JUNI2 = W-JUM2 + W-JUNII 



MOVE W-JUNB TO O-JUNJ 

MOVE S-NO-NAME TO O-NO-NAME 

MOVE S-GOUKH TO O-COUKEI 

MOVE S-TOKUTEN TO O-TOKUTEN 
WRrTE O-JUN-REC 

MOVE S-GOUKE I TO W-COUKB 
END-RETURN 

END- PERFORM. 

CLOSE JUN1-FILE. 
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